Attribute VB_Name = "ModVers"
Public Const VersiAplikasi As String = "1.3"
Public Const block As String = "block"
Public Sub bahasa()
Dim bhs As New ClsINI
bhs.FileName = App.Path & "\bahasa.ini"
If FrmMain.cbobhs1.Text = "Indonesian" Then
bhs.ApplicationKey = "BahasaInd"
With FrmMain
.CmdSetClient.Caption = bhs.GetValue("CmdSetClient", "")
.CmdPersonal.Caption = bhs.GetValue("CmdPersonal", "")
.cmdpelajar.Caption = bhs.GetValue("CmdPelajar", "")
.CmdGame.Caption = bhs.GetValue("Cmdgame", "")
.CmdKetik.Caption = bhs.GetValue("Cmdketik", "")
.cmdpayFirst.Caption = bhs.GetValue("CmdPayfirst", "")
.CmdMember.Caption = bhs.GetValue("Cmdmember", "")
.CmdCanSet.Caption = bhs.GetValue("cmdBatal", "")
.Label1.Caption = bhs.GetValue("label1", "")
.CmdStartGame.Caption = bhs.GetValue("cmdstartgame", "")
.CmdBatal.Caption = bhs.GetValue("cmdBatal", "")
.cmdAplly.Caption = bhs.GetValue("cmdaplly", "")
.CmdBackGame.Caption = bhs.GetValue("cmdBackGame", "")
.CmdBackMember.Caption = bhs.GetValue("cmdBackGame", "")
.Label20.Caption = bhs.GetValue("label20", "")
.Label21.Caption = bhs.GetValue("label21", "")
.Label22.Caption = bhs.GetValue("label21", "")
.CmdSeting.Caption = bhs.GetValue("CmdSeting", "")
.CmdTutup.Caption = bhs.GetValue("CmdTutup", "")
.ChkApp.Caption = bhs.GetValue("chkapp", "")
.Label4.Caption = bhs.GetValue("Label4", "")
.ChkPersonal.Caption = bhs.GetValue("CmdPersonal", "")
.ChkPelajar.Caption = bhs.GetValue("CmdPelajar", "")
.ChkGames.Caption = bhs.GetValue("Cmdgame", "")
.ChkKetik.Caption = bhs.GetValue("Cmdketik", "")
.ChkPayFirst.Caption = bhs.GetValue("CmdPayfirst", "")
.ChkMember.Caption = bhs.GetValue("Cmdmember", "")
.Label5.Caption = bhs.GetValue("Label5", "")
.Label6.Caption = bhs.GetValue("Label6", "")
.cmdhelp.Caption = bhs.GetValue("cmdhelp", "")
.cmddel.Caption = bhs.GetValue("cmddelkill", "")
.cmdaddg.Caption = bhs.GetValue("cmdaddkill", "")


End With
Else
bhs.ApplicationKey = "BahasaEn"
With FrmMain
.CmdPersonal.Caption = bhs.GetValue("CmdPersonal", "")
.cmdpelajar.Caption = bhs.GetValue("CmdPelajar", "")
.CmdGame.Caption = bhs.GetValue("Cmdgame", "")
.CmdKetik.Caption = bhs.GetValue("Cmdketik", "")
.cmdpayFirst.Caption = bhs.GetValue("CmdPayfirst", "")
.CmdMember.Caption = bhs.GetValue("Cmdmember", "")
.CmdCanSet.Caption = bhs.GetValue("cmdBatal", "")
.CmdSetClient.Caption = bhs.GetValue("CmdSetClient", "")
.Label1.Caption = bhs.GetValue("label1", "")
.CmdStartGame.Caption = bhs.GetValue("cmdstartgame", "")
.cmdAplly.Caption = bhs.GetValue("cmdaplly", "")
.CmdBackGame.Caption = bhs.GetValue("cmdBackGame", "")
.CmdBackMember.Caption = bhs.GetValue("cmdBackGame", "")
.Label20.Caption = bhs.GetValue("label20", "")
.Label21.Caption = bhs.GetValue("label21", "")
.Label22.Caption = bhs.GetValue("label21", "")
.CmdSeting.Caption = bhs.GetValue("CmdSeting", "")
.CmdTutup.Caption = bhs.GetValue("CmdTutup", "")
.ChkApp.Caption = bhs.GetValue("chkapp", "")


.Label4.Caption = bhs.GetValue("Label4", "")
.ChkPersonal.Caption = bhs.GetValue("CmdPersonal", "")
.ChkPelajar.Caption = bhs.GetValue("CmdPelajar", "")
.ChkGames.Caption = bhs.GetValue("Cmdgame", "")
.ChkKetik.Caption = bhs.GetValue("Cmdketik", "")
.ChkPayFirst.Caption = bhs.GetValue("CmdPayfirst", "")
.ChkMember.Caption = bhs.GetValue("Cmdmember", "")
.Label5.Caption = bhs.GetValue("Label5", "")
.Label6.Caption = bhs.GetValue("Label6", "")
.cmdhelp.Caption = bhs.GetValue("cmdhelp", "")
.cmddel.Caption = bhs.GetValue("cmddelkill", "")
.cmdaddg.Caption = bhs.GetValue("cmdaddkill", "")


End With
End If

bhs.ApplicationKey = "Warna"
With FrmMain
.lblwarnanet.Caption = bhs.GetValue("txtwarnanet", "")
.lblwarnaal1.Caption = bhs.GetValue("txtwarnaal1", "")
.lblwarnaal2.Caption = bhs.GetValue("txtwarnaal2", "")
.lblslogan1.Caption = bhs.GetValue("txtslogan", "")
End With
End Sub

Public Sub bahasaBilling()
Dim bhs As New ClsINI
bhs.FileName = App.Path & "\bahasa.ini"
If FrmMain.cbobhs1.Text = "Indonesian" Then
bhs.ApplicationKey = "BahasaInd"
With FrmMain
.CmdSetClient.Caption = bhs.GetValue("CmdSetClient", "")
.CmdPersonal.Caption = bhs.GetValue("CmdPersonal", "")
.cmdpelajar.Caption = bhs.GetValue("CmdPelajar", "")
.CmdGame.Caption = bhs.GetValue("Cmdgame", "")
.CmdKetik.Caption = bhs.GetValue("Cmdketik", "")
.cmdpayFirst.Caption = bhs.GetValue("CmdPayfirst", "")
.CmdMember.Caption = bhs.GetValue("Cmdmember", "")
.CmdCanSet.Caption = bhs.GetValue("cmdBatal", "")
.Label1.Caption = bhs.GetValue("label1", "")
.CmdStartGame.Caption = bhs.GetValue("cmdstartgame", "")
.CmdBatal.Caption = bhs.GetValue("cmdBatal", "")
.cmdAplly.Caption = bhs.GetValue("cmdaplly", "")
.CmdBackGame.Caption = bhs.GetValue("cmdBackGame", "")
.CmdBackMember.Caption = bhs.GetValue("cmdBackGame", "")
.Label20.Caption = bhs.GetValue("label20", "")
.Label21.Caption = bhs.GetValue("label21", "")
.Label22.Caption = bhs.GetValue("label21", "")
.CmdSeting.Caption = bhs.GetValue("CmdSeting", "")
.CmdTutup.Caption = bhs.GetValue("CmdTutup", "")
.ChkApp.Caption = bhs.GetValue("chkapp", "")


.Label4.Caption = bhs.GetValue("Label4", "")
.ChkPersonal.Caption = bhs.GetValue("CmdPersonal", "")
.ChkPelajar.Caption = bhs.GetValue("CmdPelajar", "")
.ChkGames.Caption = bhs.GetValue("Cmdgame", "")
.ChkKetik.Caption = bhs.GetValue("Cmdketik", "")
.ChkPayFirst.Caption = bhs.GetValue("CmdPayfirst", "")
.ChkMember.Caption = bhs.GetValue("Cmdmember", "")
.Label5.Caption = bhs.GetValue("Label5", "")
.Label6.Caption = bhs.GetValue("Label6", "")
.cmdhelp.Caption = bhs.GetValue("cmdhelp", "")
End With

With FrmBilling
.frmmen.Caption = bhs.GetValue("frmmen", "")
.CmdOk.Caption = bhs.GetValue("CmdOk", "")
.CmdBatal.Caption = bhs.GetValue("CmdBatal", "")
.menke.Text = bhs.GetValue("menke", "")
.Label14.Caption = bhs.GetValue("Label14", "")
.Label6.Caption = bhs.GetValue("Label61", "")
.Label10.Caption = bhs.GetValue("Label10", "")
.Label8.Caption = bhs.GetValue("Label8", "")
.cmdcheck.Caption = bhs.GetValue("cmdcheck", "")
.CmdPesan.Caption = bhs.GetValue("CmdPesan", "")
.CmdStop.Caption = bhs.GetValue("CmdStop", "")
End With

With FrmPesan
.CmdKirim.Caption = bhs.GetValue("CmdKirim", "")
.CmdTutup.Caption = bhs.GetValue("CmdTutup", "")
End With

With MsgDis
.cmdYes.Caption = bhs.GetValue("cmdyes", "")
.cmdNo.Caption = bhs.GetValue("cmdno", "")
End With

Frmunlock.Cmdlock.Caption = bhs.GetValue("Cmdunlock", "")

Else

bhs.ApplicationKey = "BahasaEn"
With FrmMain
.CmdPersonal.Caption = bhs.GetValue("CmdPersonal", "")
.cmdpelajar.Caption = bhs.GetValue("CmdPelajar", "")
.CmdGame.Caption = bhs.GetValue("Cmdgame", "")
.CmdKetik.Caption = bhs.GetValue("Cmdketik", "")
.cmdpayFirst.Caption = bhs.GetValue("CmdPayfirst", "")
.CmdMember.Caption = bhs.GetValue("Cmdmember", "")
.CmdCanSet.Caption = bhs.GetValue("cmdBatal", "")
.CmdSetClient.Caption = bhs.GetValue("CmdSetClient", "")
.Label1.Caption = bhs.GetValue("label1", "")
.CmdStartGame.Caption = bhs.GetValue("cmdstartgame", "")
.cmdAplly.Caption = bhs.GetValue("cmdaplly", "")
.CmdBackGame.Caption = bhs.GetValue("cmdBackGame", "")
.CmdBackMember.Caption = bhs.GetValue("cmdBackGame", "")
.Label20.Caption = bhs.GetValue("label20", "")
.Label21.Caption = bhs.GetValue("label21", "")
.Label22.Caption = bhs.GetValue("label21", "")
.CmdSeting.Caption = bhs.GetValue("CmdSeting", "")
.CmdTutup.Caption = bhs.GetValue("CmdTutup", "")
.ChkApp.Caption = bhs.GetValue("chkapp", "")


.Label4.Caption = bhs.GetValue("Label4", "")
.ChkPersonal.Caption = bhs.GetValue("CmdPersonal", "")
.ChkPelajar.Caption = bhs.GetValue("CmdPelajar", "")
.ChkGames.Caption = bhs.GetValue("Cmdgame", "")
.ChkKetik.Caption = bhs.GetValue("Cmdketik", "")
.ChkPayFirst.Caption = bhs.GetValue("CmdPayfirst", "")
.ChkMember.Caption = bhs.GetValue("Cmdmember", "")
.Label5.Caption = bhs.GetValue("Label5", "")
.Label6.Caption = bhs.GetValue("Label6", "")
.cmdhelp.Caption = bhs.GetValue("cmdhelp", "")
End With

With FrmBilling
.frmmen.Caption = bhs.GetValue("frmmen", "")
.CmdOk.Caption = bhs.GetValue("CmdOk", "")
.CmdBatal.Caption = bhs.GetValue("cmdBatal", "")
.menke.Text = bhs.GetValue("menke", "")
.Label14.Caption = bhs.GetValue("Label14", "")
.Label6.Caption = bhs.GetValue("Label61", "")
.Label10.Caption = bhs.GetValue("Label10", "")
.Label8.Caption = bhs.GetValue("Label8", "")
.cmdcheck.Caption = bhs.GetValue("cmdcheck", "")
.CmdPesan.Caption = bhs.GetValue("CmdPesan", "")
.CmdStop.Caption = bhs.GetValue("CmdStop", "")
End With

With FrmPesan
.CmdKirim.Caption = bhs.GetValue("CmdKirim", "")
.CmdTutup.Caption = bhs.GetValue("CmdTutup", "")
End With

With MsgDis
.cmdYes.Caption = bhs.GetValue("cmdyes", "")
.cmdNo.Caption = bhs.GetValue("cmdno", "")
End With
Frmunlock.Cmdlock.Caption = bhs.GetValue("Cmdunlock", "")

End If

End Sub

